home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aaq.d64
/
d.dat
< prev
next >
Wrap
Text File
|
2007-02-28
|
1KB
|
96 lines
8000 FOR J:=1 TO 4 DO //D1
8010 PENUP
8020 FORWARD 2
8030 PENDOWN
8040 FORWARD 9
8050 PENUP
8060 FORWARD 4
8070 PENDOWN
8080 FORWARD 11
8090 PENUP
8100 BACK 26
8110 LEFT 90
8120 FORWARD 1
8130 RIGHT 90
8140 ENDFOR J
8150 //
8160 FOR J:=1 TO 4 DO //2
8170 PENDOWN
8180 FORWARD 11
8190 PENUP
8200 FORWARD 4
8210 PENDOWN
8220 FORWARD 13
8230 PENUP
8240 BACK 28
8250 LEFT 90
8260 FORWARD 1
8270 RIGHT 90
8280 ENDFOR J
8290 //
8300 FOR J:=1 TO 16 DO //3
8310 PENDOWN
8320 FORWARD 11
8330 PENUP
8340 FORWARD 9
8350 PENDOWN
8360 FORWARD 8
8370 PENUP
8380 BACK 28
8390 LEFT 90
8400 FORWARD 1
8410 RIGHT 90
8420 ENDFOR J
8430 //
8440 FOR J:=1 TO 8 DO //4
8450 PENUP
8460 FORWARD 2
8470 PENDOWN
8480 FORWARD 9
8490 PENUP
8500 FORWARD 9
8510 PENDOWN
8520 FORWARD 8
8530 PENUP
8540 BACK 28
8550 LEFT 90
8560 FORWARD 1
8570 RIGHT 90
8580 ENDFOR J
8590 //
8600 FOR J:=1 TO 2 DO //5
8610 PENUP
8620 FORWARD 2
8630 PENDOWN
8640 FORWARD 26
8650 PENUP
8660 BACK 28
8670 LEFT 90
8680 FORWARD 1
8690 RIGHT 90
8700 ENDFOR J
8710 //
8720 FOR J:=1 TO 4 DO //6
8730 PENUP
8740 FORWARD 4
8750 PENDOWN
8760 FORWARD 22
8770 PENUP
8780 BACK 26
8790 LEFT 90
8800 FORWARD 1
8810 RIGHT 90
8820 ENDFOR J
8830 //
8840 FOR J:=1 TO 2 DO //7
8850 PENUP
8860 FORWARD 12
8870 PENDOWN
8880 FORWARD 6
8890 PENUP
8900 BACK 18
8910 LEFT 90
8920 FORWARD 1
8930 RIGHT 90
8940 ENDFOR J